       01  R101-LOGONID-RECORD-SIZE    PICTURE X(1000).
           SKIP1
       01  R101-LOGONID-RECORD  REDEFINES  R101-LOGONID-RECORD-SIZE.
           02  R101-LOGONID.
               03  R101-LID-TYPE       PICTURE X.
               03  R101-LID-INITIALS   PICTURE XXX.
               03  R101-LID-LOC        PICTURE XX.
               03  FILLER              PICTURE XX.
           02  R101-VIO-COUNT          PICTURE S9(5).
           02  R101-PREFIX             PICTURE X(8).
           02  R101-STATUS1.
               03  R101-ST1-CANCEL     PICTURE X.
                  88  CANCELLED            VALUE '1'.
               03  R101-ST1-SUSPEND    PICTURE X.
                  88  SUSPENDED            VALUE '1'.
               03  FILLER              PICTURE X.
               03  FILLER              PICTURE X.
               03  R101-ST1-MONLOG     PICTURE X.
                  88  MONLOG               VALUE '1'.
               03  R101-TSO-CMDTRC     PICTURE X.
                  88  TSOTRACE             VALUE '1'.
               03  R101-TSO-TRACE-ALL  PICTURE X.
                  88  TRACE-ALL        VALUE '1'.
               03  FILLER              PICTURE X.
                  88  MONITOR              VALUE '1'.
           02  R101-CDATE-DDMMMYY      PICTURE X(9).
           02  R101-CDATE-YYMMDD       PICTURE X(6).
           02  R101-CCHNG-LID          PICTURE X(8).
           02  R101-STATUS2.
               03  FILLER          PICTURE X.
                  88  SECURE           VALUE '1'.
               03  FILLER          PICTURE X.
                  88  ACCOUNT          VALUE '1'.
               03  FILLER          PICTURE X.
                  88  AUDIT            VALUE '1'.
               03  FILLER          PICTURE X.
                  88  CONSULT          VALUE '1'.
               03  FILLER          PICTURE X.
                  88  LEADER           VALUE '1'.
               03  FILLER          PICTURE X.
               03  FILLER          PICTURE X.
               03  FILLER          PICTURE X.
                  88  USER             VALUE '1'.
           02  R101-LIDSCOPE       PICTURE X(8).
           02  R101-UIDSCOPE       PICTURE X(8).
           02  R101-DSNSCOPE       PICTURE X(8).
           02  R101-SCPLIST        PICTURE X(8).
           02  R101-SOURCE-ENTRY   PICTURE X(8).
           02  R101-STATUS3.
               03  FILLER          PICTURE X.
                  88  RESTRICT         VALUE '1'.
               03  FILLER          PICTURE X.
                  88  NON-CNCL         VALUE '1'.
               03  FILLER          PICTURE X.
                  88  PROGRM           VALUE '1'.
               03  FILLER          PICTURE X.
                  88  TAPE-BLP         VALUE '1'.
               03  FILLER          PICTURE X.
                  88  NO-STORE         VALUE '1'.
               03  FILLER          PICTURE X.
               03  FILLER          PICTURE X.
                  88  DUMP             VALUE '1'.
               03  FILLER          PICTURE X.
                  88  STC              VALUE '1'.
           02  R101-PGM-NAME       PICTURE X(8).
           02  R101-STATUS4.
               03  FILLER          PICTURE X.
                  88  INDEX-ID         VALUE '1'.
               03  FILLER          PICTURE X.
                  88  CONTRACT         VALUE '1'.
               03  FILLER          PICTURE X.
                  88  PRODUCTION       VALUE '1'.
               03  FILLER          PICTURE X.
                  88  TRAINEE          VALUE '1'.
               03  FILLER          PICTURE X.
                  88  CUSTOMER         VALUE '1'.
               03  FILLER          PICTURE X.
                  88  EXEMPT           VALUE '1'.
               03  FILLER          PICTURE X.
                  88  DEPTORG          VALUE '1'.
               03  FILLER          PICTURE X.
                  88  SUPPORT          VALUE '1'.
           02  R101-REFER          PICTURE X(8).
           02  R101-ZONE           PICTURE X(8).
           02  R101-SHIFT          PICTURE X(8).
           02  R101-ACCESS-DDMMMYY PICTURE X(9).
           02  R101-ACCESS-YYMMDD  PICTURE X(6).
           02  R101-EXPIRE-DDMMMYY PICTURE X(9).
           02  R101-EXPIRE-YYMMDD  PICTURE X(6).
           02  R101-MISC-FLAGS1.
               03  FILLER          PICTURE X.
                   88  R101-REFERENCE  VALUE '1'.
               03  FILLER          PICTURE X.
                   88  MODEL           VALUE '1'.
               03  FILLER          PICTURE X.
                   88  APPLICATION     VALUE '1'.
               03  FILLER          PICTURE X.
                   88  CUST-MAYBE      VALUE '1'.
               03  FILLER          PICTURE X.
                   88  MULTI-ID        VALUE '1'.
               03  FILLER          PICTURE X.
                   88  R101-OWNER      VALUE '1'.
               03  FILLER          PICTURE X.
                   88  CO-ORDINATOR    VALUE '1'.
               03  FILLER          PICTURE X.
                   88  VM-NODIR        VALUE '1'.
           02  R101-TOTRACE        PICTURE X(8).
           02  R101-CANCEL-REASON.
               03  FILLER          PICTURE X.
                   88  UNUSED          VALUE '1'.
               03  FILLER          PICTURE X.
                   88  INV-DEPT        VALUE '1'.
               03  FILLER          PICTURE X.
                   88  REQUESTED       VALUE '1'.
               03  FILLER          PICTURE X.
                   88  INV-MNGR        VALUE '1'.
               03  FILLER          PICTURE X.
                   88  LOA             VALUE '1'.
               03  FILLER          PICTURE X.
                   88  TERMINATED      VALUE '1'.
               03  FILLER          PICTURE X.
               03  FILLER          PICTURE X.
           02  R101-LID-LOCATION   PICTURE X(01).
           02  R101-RPTCLASS       PICTURE X(01).
           02  R101-WEEK-FLAGS.
               03  FILLER          PICTURE X.
                   88  WEEK1           VALUE '1'.
               03  FILLER          PICTURE X.
                   88  WEEK2           VALUE '1'.
               03  FILLER          PICTURE X.
                   88  WEEK3           VALUE '1'.
               03  FILLER          PICTURE X.
                   88  WEEK4           VALUE '1'.
               03  FILLER          PICTURE X.
               03  FILLER          PICTURE X.
               03  FILLER          PICTURE X.
               03  FILLER          PICTURE X.
           02  FILLER              PICTURE X(66).
      *
      *   PERSONAL INFORMATION
      *
           02  R101-NAME.
               03  R101-NAMEA      PICTURE X(10).
               03  R101-NAMEB      PICTURE X(10).
           02  R101-NEWNAME        PICTURE X(22).
           02  R101-PHONE          PICTURE X(12).
           02  R101-BADGE          PICTURE X(6).
      * CHANGED BADGE TO 6 CHARACTERS...
      *    02  FILLER              PICTURE X.
           02  R101-ADDRESS        PICTURE X(50).
           02  R101-REMOVED        PICTURE X.
           02  FILLER              PICTURE X(9).
      *
      *   ORGANIZATION INFORMATION
      *
           02  R101-UID-STRING.
               03  R101-MANAGER    PICTURE X(2).
               03  R101-FUNCTION   PICTURE X(1).
               03  R101-PROJECT    PICTURE X(2).
           02  R101-ORGANIZATION.
               03  R101-LOCATION   PICTURE X(2).
               03  R101-DIVISION   PICTURE X(2).
               03  R101-DEPARTMENT PICTURE X(4).
           02  R101-MIS-MANAGER    PICTURE X(2).
           02  R101-OWNER-VALID.
               03  R101-OLOC       PICTURE X(2).
               03  R101-ODIV       PICTURE X(2).
               03  R101-ODEPT      PICTURE X(4).
           02  FILLER              PICTURE X(22).
      *
      *   LOCATION INFORMATION
      *
           02  R101-MAILSTOP       PICTURE X(8).
           02  R101-DROP-POINT     PICTURE X(11).
           02  R101-ROUTE          PICTURE X(12).
           02  FILLER              PICTURE X(38).
      *
      *   SUBSYSTEM ACCESS
      *
           02  R101-STATUS5.
               03  FILLER          PICTURE X.
                  88  M204             VALUE '1'.
               03  FILLER          PICTURE X.
                  88  CMS              VALUE '1'.
               03  FILLER          PICTURE X.
                  88  CICS4            VALUE '1'.
               03  FILLER          PICTURE X.
                  88  CICS3            VALUE '1'.
               03  FILLER          PICTURE X.
                  88  CICS2            VALUE '1'.
               03  FILLER          PICTURE X.
                  88  CICS1            VALUE '1'.
               03  FILLER          PICTURE X.
                  88  IDMS             VALUE '1'.
               03  FILLER          PICTURE X.
                  88  FLAG8            VALUE '1'.
      *
      *  ADDED PSEUDO-BLP - DID NOT CHANGE FILLER OF (10).
      *                     (APPEARS TO BE CORRECT BY EYEBALL)
           02  R101-STATUS6.
               03  FILLER          PICTURE X.
                  88  PSEUDO-BLP       VALUE '1'.
               03  FILLER          PICTURE X.
                  88  IMS              VALUE '1'.
               03  FILLER          PICTURE X.
                  88  CICS             VALUE '1'.
               03  FILLER          PICTURE X.
                  88  TSO              VALUE '1'.
               03  FILLER          PICTURE X.
                  88  JOB              VALUE '1'.
               03  FILLER          PICTURE X.
                  88  READALL          VALUE '1'.
               03  FILLER          PICTURE X.
                  88  RULEVLD          VALUE '1'.
               03  FILLER          PICTURE X.
                  88  PSWD-EXP         VALUE '1'.
           02  FILLER              PICTURE X(10).
      *
      *   SUBSYSTEM PRIVILEGES
      *
           02  R101-SDSF-FLAGS.
               03  FILLER          PICTURE X.
                  88  SDSFLOG          VALUE '1'.
               03  FILLER          PICTURE X.
                  88  SDSFCMD          VALUE '1'.
               03  FILLER          PICTURE X.
                  88  SDSFJES          VALUE '1'.
               03  FILLER          PICTURE X.
                  88  SDSFIMP          VALUE '1'.
               03  FILLER          PICTURE X.
               03  FILLER          PICTURE X.
               03  FILLER          PICTURE X.
                  88  TPXPRIV          VALUE '1'.
               03  FILLER          PICTURE X.
                  88  TPXOPER          VALUE '1'.
           02  FILLER              PICTURE X(50).
      *
      *   CICS INFORMATION
      *
           02  R101-COPR           PICTURE X(3).
           02  R101-COID           PICTURE X(3).
           02  R101-CPPR           PICTURE X(1).
           02  R101-COCL           PICTURE X(3).
           02  R101-COKY           PICTURE X(3).
           02  FILLER              PICTURE X(50).
      *
      *   TSO INFORMATION
      *
           02  R101-TSO-PREFIX     PICTURE X(7).
           02  R101-TSO-CMDLIST    PICTURE X(8).
           02  R101-TSOPROC        PICTURE X(8).
           02  R101-TSOSIZE        PICTURE 9(4).
           02  R101-TSOPERF        PICTURE 9(3).
           02  R101-TSO-FLAGS1.
               03  FILLER          PICTURE X.
                  88  LGN-ACCT         VALUE '1'.
               03  FILLER          PICTURE X.
                  88  LGN-PROC         VALUE '1'.
               03  FILLER          PICTURE X.
                  88  LGN-SIZE         VALUE '1'.
               03  FILLER          PICTURE X.
                  88  LGN-PERF         VALUE '1'.
               03  FILLER          PICTURE X.
                  88  ALLCMDS          VALUE '1'.
               03  FILLER          PICTURE X.
                  88  LGN-UNIT         VALUE '1'.
               03  FILLER          PICTURE X.
                  88  LGN-MSG          VALUE '1'.
               03  FILLER          PICTURE X.
                  88  JCL              VALUE '1'.
           02  R101-TSO-FLAGS2.
               03  FILLER          PICTURE X.
                  88  OPERATOR         VALUE '1'.
               03  FILLER          PICTURE X.
                  88  TSOACCT          VALUE '1'.
               03  FILLER          PICTURE X.
                  88  JCL-SUB          VALUE '1'.
               03  FILLER          PICTURE X.
                  88  MOUNT            VALUE '1'.
               03  FILLER          PICTURE X.
                  88  RECOVER          VALUE '1'.
               03  FILLER          PICTURE X.
                  88  RECVR-PROF       VALUE '1'.
               03  FILLER          PICTURE X.
                  88  CMD-LONG         VALUE '1'.
               03  FILLER          PICTURE X.
           02  FILLER              PICTURE X(50).
      *
      *   DISTRIBUTION LISTS
      *
           02  R101-USRAUTH1.
               03  FILLER          PICTURE X.
                  88  SYSTEMS          VALUE '1'.
               03  FILLER          PICTURE X.
                  88  CICSTECH         VALUE '1'.
               03  FILLER          PICTURE X.
                  88  SPACEMGR         VALUE '1'.
               03  FILLER          PICTURE X.
                  88  IDMSTECH         VALUE '1'.
               03  FILLER          PICTURE X.
                  88  NICEADM          VALUE '1'.
               03  FILLER          PICTURE X.
                  88  NOVAADM          VALUE '1'.
               03  FILLER          PICTURE X.
               03  FILLER          PICTURE X.
           02  R101-LIDV1FLG.
               03  FILLER          PICTURE X.
                  88  SRF              VALUE '1'.
               03  FILLER          PICTURE X.
               03  FILLER          PICTURE X.
                  88  GRPLOGON         VALUE '1'.
               03  FILLER          PICTURE X.
                  88  AUTOLOG          VALUE '1'.
               03  FILLER          PICTURE X.
                  88  AUTOONLY         VALUE '1'.
               03  FILLER          PICTURE X.
                  88  AUTOALL          VALUE '1'.
               03  FILLER          PICTURE X.
               03  FILLER          PICTURE X.
                  88  VM               VALUE '1'.
           02  R101-DISTRIB-LISTS3.
               03  FILLER          PICTURE X.
               03  FILLER          PICTURE X.
               03  FILLER          PICTURE X.
               03  FILLER          PICTURE X.
               03  FILLER          PICTURE X.
               03  FILLER          PICTURE X.
               03  FILLER          PICTURE X.
               03  FILLER          PICTURE X.
           02  R101-DISTRIB-LISTS4.
               03  FILLER          PICTURE X.
               03  FILLER          PICTURE X.
               03  FILLER          PICTURE X.
               03  FILLER          PICTURE X.
               03  FILLER          PICTURE X.
               03  FILLER          PICTURE X.
               03  FILLER          PICTURE X.
               03  FILLER          PICTURE X.
